home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / pcboard / wavlogof.zip / WAVLOGOF.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-01-04  |  7KB  |  331 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER002
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     String   STRING001
  24.     String   STRING002
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     INTEGER003 = 3
  29.     INTEGER004 = 19
  30.     INTEGER002 = 3
  31.     INTEGER005 = 10
  32.     STRING002 = "YES"
  33.     If (Exist(PPEPath() + "WAVLOGOF.PCB")) DispFile PPEPath() + "WAVLOGOF.PCB", 0
  34.     AnsiPos 28, INTEGER004 - 3
  35.     Print "@X8CWARNING SYSTEM UNSTABLE"
  36.     PrintLn "@POFF@"
  37.     AnsiPos INTEGER003, INTEGER004 - 1
  38.     PrintLn "@X01┌─@X09■@X08CpC@X09■@X01─@X09──@X03─@X09──@X01─────@X09──────@X03──@X0B──@X0F─@X05 @X0AENERGY READING @X05@X0F─@X0B──@X03──@X09──────@X01────@X09──@X03─@X09──@X01─@X09■@X08AKo@X09■@X01─┐"
  39.     AnsiPos INTEGER003, INTEGER004 + 3
  40.     PrintLn "@X01└───@X09───@X03──@X09───@X01[@X1CSHUT SYSTEM!@X01]@X09─────@X03───@X0B───@X03[@X07 @X03]@X0B───@X03───@X09─────@X01[@X04USE RESERVES@X01]@X09────@X03──@X09──@X01───┘"
  41.     Goto LABEL003
  42.     :LABEL001
  43.     AnsiPos 16, INTEGER004 + 3
  44.     Print "@X1CSHUT SYSTEM!"
  45.     AnsiPos 55, INTEGER004 + 3
  46.     Print "@X04USE RESERVES"
  47.     STRING002 = "YES"
  48.     Return
  49.     :LABEL002
  50.     AnsiPos 16, INTEGER004 + 3
  51.     Print "@X04SHUT SYSTEM!"
  52.     AnsiPos 55, INTEGER004 + 3
  53.     Print "@X1CUSE RESERVES"
  54.     STRING002 = "NO"
  55.     Return
  56.     :LABEL003
  57.     INTEGER005 = INTEGER005 - 1
  58.     AnsiPos 41, INTEGER004 + 3
  59.     Print "@X07", INTEGER005
  60.     Color 13
  61.     Delay INTEGER002
  62.     AnsiPos INTEGER003, INTEGER004
  63.     PrintLn "       /\        /\    /\            /\      /\            /\      /\       "
  64.     AnsiPos INTEGER003, INTEGER004 + 1
  65.     PrintLn "/\  /\/  \  /\  /  \  /  \/\    /\  /  \  /\/  \/\    /\  /  \/\  /  \/\/\  "
  66.     AnsiPos INTEGER003, INTEGER004 + 2
  67.     PrintLn "  \/      \/  \/    \/      \/\/  \/    \/        \/\/  \/      \/        \/"
  68.     AnsiPos 41, INTEGER004 - 1
  69.     STRING001 = Inkey()
  70.     If (STRING001 == "LEFT") Gosub LABEL001
  71.     If (STRING001 == "RIGHT") Gosub LABEL002
  72.     If (STRING001 == Chr(13)) Goto LABEL004
  73.     Color 13
  74.     Delay INTEGER002
  75.     AnsiPos INTEGER003, INTEGER004
  76.     PrintLn "              /\        /\    /\            /\      /\            /\      /\"
  77.     AnsiPos INTEGER003, INTEGER004 + 1
  78.     PrintLn "\/\/\  /\  /\/  \  /\  /  \  /  \/\    /\  /  \  /\/  \/\    /\  /  \/\  /  "
  79.     AnsiPos INTEGER003, INTEGER004 + 2
  80.     PrintLn "     \/  \/      \/  \/    \/      \/\/  \/    \/        \/\/  \/      \/   "
  81.     AnsiPos 41, INTEGER004 - 1
  82.     STRING001 = Inkey()
  83.     If (STRING001 == "LEFT") Gosub LABEL001
  84.     If (STRING001 == "RIGHT") Gosub LABEL002
  85.     If (STRING001 == Chr(13)) Goto LABEL004
  86.     Color 13
  87.     Delay INTEGER002
  88.     AnsiPos INTEGER003, INTEGER004
  89.     PrintLn "     /\      /\              /\        /\    /\            /\      /\       "
  90.     AnsiPos INTEGER003, INTEGER004 + 1
  91.     PrintLn "/\  /  \/\  /  \/\/\  /\  /\/  \  /\  /  \  /  \/\    /\  /  \  /\/  \/\    "
  92.     AnsiPos INTEGER003, INTEGER004 + 2
  93.     PrintLn "  \/      \/        \/  \/      \/  \/    \/      \/\/  \/    \/        \/\/"
  94.     AnsiPos 41, INTEGER004 - 1
  95.     STRING001 = Inkey()
  96.     If (STRING001 == "LEFT") Gosub LABEL001
  97.     If (STRING001 == "RIGHT") Gosub LABEL002
  98.     If (STRING001 == Chr(13)) Goto LABEL004
  99.     Color 13
  100.     Delay INTEGER002
  101.     AnsiPos INTEGER003, INTEGER004
  102.     PrintLn " /\    /\            /\      /\            /\      /\              /\       "
  103.     AnsiPos INTEGER003, INTEGER004 + 1
  104.     PrintLn "/  \  /  \/\    /\  /  \  /\/  \/\    /\  /  \/\  /  \/\/\  /\  /\/  \  /\  "
  105.     AnsiPos INTEGER003, INTEGER004 + 2
  106.     PrintLn "    \/      \/\/  \/    \/        \/\/  \/      \/        \/  \/      \/  \/"
  107.     AnsiPos 41, INTEGER004 - 1
  108.     STRING001 = Inkey()
  109.     If (STRING001 == "LEFT") Gosub LABEL001
  110.     If (STRING001 == "RIGHT") Gosub LABEL002
  111.     If (STRING001 == Chr(13)) Goto LABEL004
  112.     Color 13
  113.     Delay INTEGER002
  114.     AnsiPos INTEGER003, INTEGER004
  115.     PrintLn "          /\      /\              /\        /\    /\            /\      /\  "
  116.     AnsiPos INTEGER003, INTEGER004 + 1
  117.     PrintLn "\    /\  /  \/\  /  \/\/\  /\  /\/  \  /\  /  \  /  \/\    /\  /  \  /\/  \/"
  118.     AnsiPos INTEGER003, INTEGER004 + 2
  119.     PrintLn " \/\/  \/      \/        \/  \/      \/  \/    \/      \/\/  \/    \/       "
  120.     AnsiPos 41, INTEGER004 - 1
  121.     STRING001 = Inkey()
  122.     If (STRING001 == "LEFT") Gosub LABEL001
  123.     If (STRING001 == "RIGHT") Gosub LABEL002
  124.     If (STRING001 == Chr(13)) Goto LABEL004
  125.     If (INTEGER005 == 0) Goto LABEL005
  126.     Goto LABEL003
  127.     :LABEL004
  128.     If (STRING002 == "YES") Goto LABEL005
  129.     If (STRING002 == "NO") Goto LABEL007
  130.     :LABEL005
  131.     AnsiPos 1, INTEGER004
  132.     ClrEol
  133.     AnsiPos 1, INTEGER004 + 2
  134.     ClrEol
  135.     Color 13
  136.     AnsiPos 1, INTEGER004 + 1
  137.     ClrEol
  138.     PrintLn "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  139.     Delay 4
  140.     Color 5
  141.     ClrEol
  142.     AnsiPos 1, INTEGER004 + 1
  143.     PrintLn "       ─────────────────────────────────────────────────────────────────"
  144.     Delay 2
  145.     AnsiPos 1, INTEGER004 + 1
  146.     ClrEol
  147.     PrintLn "                 ───────────────────────────────────────────"
  148.     Delay 2
  149.     AnsiPos 1, INTEGER004 + 1
  150.     ClrEol
  151.     PrintLn "                       ───────────────────────────────"
  152.     Delay 2
  153.     AnsiPos 1, INTEGER004 + 1
  154.     ClrEol
  155.     PrintLn "                                ──────────────"
  156.     Delay 2
  157.     AnsiPos 1, INTEGER004 + 1
  158.     ClrEol
  159.     PrintLn "                                     ───"
  160.     Delay 2
  161.     AnsiPos 1, INTEGER004 + 1
  162.     ClrEol
  163.     PrintLn "                                      ─"
  164.     Delay 2
  165.     AnsiPos 1, INTEGER004 + 1
  166.     ClrEol
  167.     PrintLn "                                      ■"
  168.     Delay 2
  169.     ClrEol
  170.     AnsiPos 1, INTEGER004 + 1
  171.     PrintLn "                                      ."
  172.     Delay 2
  173.     ClrEol
  174.     AnsiPos 1, INTEGER004 + 1
  175.     PrintLn "                               "
  176.     Delay 2
  177.     Print "@X07"
  178.     AnsiPos 1, INTEGER004 + 1
  179.     Print "@X08                               Co@X07nn@X0Fec@X07ti@X08on Te@X07rm@X0Fin@X07at@X08ed!"
  180.     Hangup
  181.     End
  182.     :LABEL006
  183.     GetUser
  184.     U_Sec = 110
  185.     PutUser
  186.     Return
  187.     :LABEL007
  188.     AnsiPos 1, INTEGER004
  189.     ClrEol
  190.     AnsiPos 1, INTEGER004 + 2
  191.     ClrEol
  192.     Color 5
  193.     AnsiPos 1, INTEGER004 + 1
  194.     ClrEol
  195.     PrintLn "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "
  196.     Delay 4
  197.     AnsiPos 1, INTEGER004 + 1
  198.     ClrEol
  199.     AnsiPos 1, INTEGER004 + 1
  200.     PrintLn "------------------------------------------------------------------------------"
  201.     Delay 4
  202.     AnsiPos 1, INTEGER004 + 1
  203.     ClrEol
  204.     PrintLn "──────────────────────────────────────────────────────────────────────────────"
  205.     Delay 4
  206.     AnsiPos 1, INTEGER004 + 1
  207.     ClrEol
  208.     PrintLn "─══─═─═══─═─═─══─═─══─═─══─═─══─═─══─═─══─═─══─═─══─═─══─═─══─═─══─═─══─═─══─═"
  209.     Delay 4
  210.     AnsiPos 1, INTEGER004 + 1
  211.     ClrEol
  212.     PrintLn "══════════════════════════════════════════════════════════════════════════════"
  213.     Delay 4
  214.     AnsiPos 1, INTEGER004 + 1
  215.     ClrEol
  216.     PrintLn "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
  217.     Delay 4
  218.     AnsiPos 1, INTEGER004 + 1
  219.     ClrEol
  220.     PrintLn "▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄▀▄"
  221.     Delay 4
  222.     AnsiPos 1, INTEGER004 + 1
  223.     ClrEol
  224.     PrintLn "██████████████████████████████████████████████████████████████████████████████"
  225.     Delay 4
  226.     AnsiPos 1, INTEGER004 + 1
  227.     ClrEol
  228.     Color 13
  229.     PrintLn "██████████████████████████████████████████████████████████████████████████████"
  230.     Delay 4
  231.     AnsiPos 28, INTEGER004 - 3
  232.     Color 8
  233.     Print "RESERVE UNIT INITALIZED"
  234.     Delay 4
  235.     AnsiPos 28, INTEGER004 - 3
  236.     Color 7
  237.     Print "RESERVE UNIT INITALIZED"
  238.     Delay 4
  239.     AnsiPos 28, INTEGER004 - 3
  240.     Color 15
  241.     Print "RESERVE UNIT INITALIZED"
  242.     Delay 4
  243.     AnsiPos 28, INTEGER004 - 3
  244.     Color 7
  245.     Print "RESERVE UNIT INITALIZED"
  246.     Delay 4
  247.     AnsiPos 28, INTEGER004 - 3
  248.     Color 8
  249.     Print "RESERVE UNIT INITALIZED"
  250.     Delay 4
  251.     AnsiPos 28, INTEGER004 - 3
  252.     Color 7
  253.     Print "RESERVE UNIT INITALIZED"
  254.     Delay 4
  255.     AnsiPos 28, INTEGER004 - 3
  256.     Color 15
  257.     Print "RESERVE UNIT INITALIZED"
  258.     Delay 4
  259.     AnsiPos 28, INTEGER004 - 3
  260.     Color 7
  261.     Print "RESERVE UNIT INITALIZED"
  262.     Delay 10
  263.     STRING001 = Inkey()
  264.     If (STRING001 == Chr(42)) Gosub LABEL006
  265.     KbdStuff Chr(13)
  266.     Cls
  267.     End
  268.  
  269. ;------------------------------------------------------------------------------
  270. ;
  271. ; Usage report (before postprocessing)
  272. ;
  273. ; ■ Statements used :
  274. ;
  275. ;    2       End
  276. ;    1       Cls
  277. ;    23      ClrEol
  278. ;    17      Color 
  279. ;    10      Goto 
  280. ;    15      Let 
  281. ;    16      Print 
  282. ;    37      PrintLn 
  283. ;    20      If 
  284. ;    1       DispFile 
  285. ;    1       Hangup
  286. ;    1       GetUser
  287. ;    1       PutUser
  288. ;    11      Gosub 
  289. ;    3       Return
  290. ;    32      Delay 
  291. ;    1       KbdStuff 
  292. ;    61      AnsiPos 
  293. ;
  294. ;
  295. ; ■ Functions used :
  296. ;
  297. ;    41      +
  298. ;    16      -
  299. ;    19      ==
  300. ;    7       Chr()
  301. ;    6       Inkey()
  302. ;    2       PPEPath()
  303. ;    1       Exist()
  304. ;
  305. ;------------------------------------------------------------------------------
  306. ;
  307. ; Analysis flags : WB
  308. ;
  309. ; W - Write user ■ 5
  310. ;     Program writes a user record. Although this may be normal for a
  311. ;     User Editor, it may also be a way to modify an account level.
  312. ;     ■ Search for : PUTUSER
  313. ;
  314. ; B - Brute hangup ■ 1
  315. ;     Program hangup without notification. This may be a good way to
  316. ;     disconnect a user, but if used randomly, may be very nasty
  317. ;     ■ Search for : HANGUP, DTROFF
  318. ;
  319. ;------------------------------------------------------------------------------
  320. ;
  321. ; Postprocessing report
  322. ;
  323. ;    0       For/Next
  324. ;    0       While/EndWhile
  325. ;    0       If/Then or If/Then/Else
  326. ;    0       Select Case
  327. ;
  328. ;------------------------------------------------------------------------------
  329. ;                 AEGiS Corp - Break the routines, code against the machines!
  330. ;------------------------------------------------------------------------------
  331.